home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / srefv112.zip / SREFPRC1.ZIP / EXPIRE.SRF < prev    next >
Text File  |  1996-05-16  |  1KB  |  32 lines
  1. /* ----------------------------------------------------------------*/
  2. /* Routine to create an "expires" response header from scratch.
  3.    Assumes respons type 200,  encoding=binary, no message id
  4.    Dates are GMT (assuming GMT offset works)
  5.    Arguments are: 
  6.      time offset (fraction of a day to add to the expires, default=.04)
  7.      Content length  (default=0)
  8.      mime type  (def= text/html)
  9.      noauto header flag  (N or Y)  (default =  YES )
  10. (defaults are used if not provided)
  11. */
  12.  
  13. sref_expire_response: 
  14.   parse arg aoffset, alength,am1,adrop
  15.   if am1="" then am1="text/html"
  16.   if alengh="" then alength=0
  17.   if aoffset="" then aoffset=0.04
  18.   adrop1=' '
  19.    if adrop="" | abbrev(translate(adrop),'Y')=1 then adrop1="NOAUTO"
  20.  
  21.   'RESPONSE HTTP/1.0 200 OK EXPIRE OFFSET'     /* Set HTTP response line */
  22.   'HEADER ' adrop1 ' ADD Server: ' server()
  23.    thisdate=sref_new_gmt()' GMT '
  24.    expdate=sref_new_gmt(aoffset)' GMT'
  25.   'HEADER ADD Date: 'thisdate
  26.   'HEADER ADD Content-Type: ' am1
  27.   'HEADER ADD Content-Length:' alength
  28.   'HEADER ADD Expires:'expdate
  29.   'HEADER ADD Content-Transfer-Encoding: binary '
  30. return 0
  31.  
  32.